home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / x.y-demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  27 lines
  1. 10 ein=49241 :rem  grafik ein
  2. 20 aus=49252 :rem  grafik aus
  3. 30 neu=49152 :rem  loeschen + farbe
  4. 40 gsv=49271 :rem  save
  5. 50 gld=49333 :rem  load
  6. 60 rot=50316 :rem  rotationskoerper
  7. 70 xy =50672 :rem  x.y-grafik
  8. 80 :
  9. 100 poke53280,6:poke53281,5:sysneu,5
  10. 105 deffna(x)=cos(x)+cos(3*x)+cos(5*x)
  11. 110 deffnr(egal)=fna(sqr(x*x+y*y))
  12. 120 print"[147][144]+++++++  f(x,y)-netzgrafik-demo  +++++++":uu=(NULL)/180
  13. 130 u=18:input"drehwinkel (-45 bis 90) .. ";u:ifu<-45oru>90then130
  14. 140 lx=180:ly=180:my=110:mx=159:sn=sin(uu*u):cs=cos(uu*u)
  15. 150 v=45:input"aufsichtswinkel (0 bis 90) ";v:ifv>90orv<0then150
  16. 160 sm=sin(v*uu)
  17. 165 xx%=mx-lx/sqr(2)*sin((45-u)*uu)+.5:yy%=my+ly/sqr(2)*cos((45-u)*uu)*sm+.5
  18. 170 nn%=20:input"anzahl der x-linien ...... ";nn%:ifnn%<3ornn%>60then170
  19. 175 kk%=21:input"anzahl der y-linien ...... ";kk%:ifkk%<3ornn%>60then175
  20. 180 aa%=ly*cs/kk%+.5:bb%=-lx*sn/nn%+.5:cc%=lx*cs/nn%*sm+.5
  21. 190 ee%=-ly*sn/kk%*sm+.5:dd=cos(v*uu)*30
  22. 220 x=2:u=-.4:input"grenzen (x0,x1) .......... ";x,u
  23. 225 yy=-.4:v=2:input"grenzen (y0,y1) .......... ";yy,v
  24. 230 ff=(u-x)/nn%:ll=(v-yy)/kk%
  25. 380 sysxy
  26. 390 print"[147]":wait198,1:poke198,0:sysaus
  27.